library(sesame)
library(askme)
library(dplyr)
sesame_checkVersion()
## SeSAMe requires matched versions of R, sesame, sesameData and ExperimentHub.
## Here is the current versions installed:
## R: 4.3.0
## Bioconductor: 3.17
## sesame: 1.19.0
## sesameData: 1.19.0
## ExperimentHub: 2.8.0

Classify CNS tumor

pfxes <- searchIDATprefixes("~/repo/askme_test/CapperProsp10_HM450/")[1:2]
betas <- openSesame(pfxes, mask=FALSE)
apply(betas, 2, function(x) askme_cancertype(x, model=m_cancertype_CNS65))
## GSM2940901 GSM2941168 
##  MTGF_ATRT  MTGF_ATRT 
## 65 Levels: ANA PA CHGL CHORDM CN CNS NB, FOXR2 CPH, ADM CPH, PAP ... SUBEPN, ST